unit App.Action.TAppDefaultNextAction;

interface

uses SmallStruct.Action,
  App.Action.TAppCustomeAction,
  SmallStruct.Model;

type
  TAppDefaultNextAction = class(TAppCustomeAction)
  protected
    function DoPerform(ActionContext: ISSActionContext): Boolean; override;
  end;

implementation

{ TAppDefaultNextAction }

function TAppDefaultNextAction.DoPerform(ActionContext: ISSActionContext): Boolean;
begin
  Result := False;
  (GetRequestViewPrimaryDataModel as ISSDataModel).ApplyModify;
  GetRequestViewPrimaryDataModel.GetDataSet.Next;
  Result := True;
end;

end.
